### Name: get.soil.texture
### Title: Enter soil texture data.
### Aliases: get.soil.texture
### Keywords: misc

### ** Examples

 if(dev.interactive()) {
  newsp<-get.soil.texture()
  # show the soil triangle
  soil.texture()
  # now plot the observations
  show.soil.texture(newsp)
 }



